home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 201_300 / disk0258 / script.doc < prev    next >
Encoding:
Text File  |  1984-05-08  |  12.1 KB  |  564 lines
  1.                         Crosstalk Script files
  2.  
  3. The following is a rather lenghty procedure to set up a menu processing system
  4. for Crosstalk.  Included are procedures to perform automatic logon and capture
  5. to the IBMSIG which may be extracted and used as standalone Xtalk scripts.
  6.  
  7. The script and menu files were written by Steven Greenberg, who seems to know
  8. everything there is to know about script files, and this document put together
  9. by Don Watkins, who knows nothing about script files.  Steve has donated these
  10. scripts to the SIG and hopes they'll be of some help and use to members.
  11.  
  12. The Menu facility is composed of two files:
  13.                         AUTOEXEC.BAT - Contains the command XTALK MENU
  14.                                        which brings up XTALK on power-up or
  15.                                        or reset and executes the file MENU.XTK
  16.                         MENU.XTS     - Contains the menu text and key trapping
  17.                                        script code.
  18. Contents of MENU.XTS (editors note.... the CROSSTALK - XVI were done very
  19. nicely in with ASCII characters 205 (top) and 186(sides) they have been
  20. changed as CIS will not accept them):
  21.  
  22. SCREEN TERMINAL
  23. CLEAR
  24. MESSAGE
  25.                       ***********************************
  26.                       *                                 *
  27.                       *    C R O S S T A L K - X V I    *
  28.                       *                                 *
  29.                       ***********************************
  30.  
  31.  
  32.  
  33.                         Information Services Available:
  34.  
  35.  
  36.                                 1)   CompuServe
  37.  
  38.                                 2)   Dow Jones
  39.  
  40.                                 3)   The Source
  41.  
  42.                                 4)   Home Banking
  43.  
  44.  
  45.                                 5)   Exit to DOS
  46.  
  47.  
  48. .
  49. LABEL ASKSERVICE
  50. ASK Please choose one of the above (1,2,3,4,5):
  51. IF -012345 JUMP ASKSERVICE
  52. JUMP DO-@
  53. LABEL DO-1
  54. CLEAR
  55. MESSAGE
  56.                       ***********************************
  57.                       *                                 *
  58.                       *    C R O S S T A L K - X V I    *
  59.                       *                                 *
  60.                       ***********************************
  61.  
  62.  
  63.  
  64.                           Information Service Chosen:
  65.  
  66.  
  67.                                    CompuServe
  68. .
  69. LABEL CSSIG-YN
  70. ASK Do you wish to automaticaly capture the latest info on the IBM SIG (Y,N):
  71. IF -YN JUMP CSSIG-YN
  72. IF N JUMP CSSIG-N
  73. MESSAGE
  74.  
  75.                           IBM PC Special Intrest Group
  76. .
  77. LABEL CSSPEED1
  78. ASK Please choose the transmission speed - 300 or 1200 baud (3=300,1=1200):
  79. IF -13 JUMP CSSPEED1
  80. IF 1 SPEED 1200
  81. IF 3 JUMP CSSPEED1-3
  82. MESSAGE
  83.  
  84.                                    1200 baud
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92. .
  93. JUMP CSCONFIRM1
  94. LABEL CSSPEED1-3
  95. SPEED 300
  96. MESSAGE
  97.  
  98.                                     300 baud
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106. .
  107. LABEL CSCONFIRM1
  108. ASK Please confirm that the above choices are correct (Y,N):
  109. IF -YN JUMP CSCONFIRM1
  110. IF N RWIND
  111. LO CSIBMSIG
  112. LABEL CSSIG-N
  113. MESSAGE
  114.  
  115.                                 Standard Log-On
  116. .
  117. LABEL CSSPEED2
  118. ASK Please choose the transmission speed - 300 or 1200 baud (3=300,1=1200):
  119. IF -13 JUMP CSSPEED2
  120. IF 1 SPEED 1200
  121. IF 3 JUMP CSSPEED2-3
  122. MESSAGE
  123.  
  124.                                    1200 baud
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132. .
  133. JUMP CSCONFIRM2
  134. LABEL CSSPEED2-3
  135. SPEED 300
  136. MESSAGE
  137.  
  138.                                     300 baud
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146. .
  147. LABEL CSCONFIRM2
  148. ASK Please confirm that the above choices are correct (Y,N):
  149. IF -YN JUMP CSCONFIRM2
  150. IF N RWIND
  151. LO CSERVE
  152. ABORT
  153. LABEL DO-2
  154. CLEAR
  155. MESSAGE
  156.                       ***********************************
  157.                       *                                 *
  158.                       *    C R O S S T A L K - X V I    *
  159.                       *                                 *
  160.                       ***********************************
  161.  
  162.  
  163.  
  164.                           Information Service Chosen:
  165.  
  166.  
  167.                                    Dow Jones
  168. .
  169. LABEL DJ1
  170. MESSAGE
  171.  
  172.                                 Standard Log-On
  173. .
  174. LABEL DJSPEED
  175. ASK Please choose the transmission speed - 300 or 1200 baud (3=300,1=1200):
  176. IF -13 JUMP DJSPEED
  177. IF 1 SPEED 1200
  178. IF 3 JUMP DJSPEED3
  179. MESSAGE
  180.  
  181.                                    1200 baud
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189. .
  190. JUMP DJCONFIRM
  191. LABEL DJSPEED3
  192. SPEED 300
  193. MESSAGE
  194.  
  195.                                    300 baud
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203. .
  204. LABEL DJCONFIRM
  205. ASK Please confirm that the above choices are correct (Y,N):
  206. IF -YN JUMP DJCONFIRM
  207. IF N RWIND
  208. LO DOWJONES
  209. ABORT
  210. LABEL DO-3
  211. CLEAR
  212. MESSAGE
  213.                       ***********************************
  214.                       *                                 *
  215.                       *    C R O S S T A L K - X V I    *
  216.                       *                                 *
  217.                       ***********************************
  218.  
  219.  
  220.  
  221.                           Information Service Chosen:
  222.  
  223.  
  224.                                    The Source
  225. .
  226. LABEL TS1
  227. MESSAGE
  228.  
  229.                                  Standard Log-On
  230. .
  231. LABEL TSSPEED
  232. ASK Please choose the transmission speed - 300 or 1200 baud (3=300,1=1200):
  233. IF -13 JUMP TSSPEED
  234. IF 1 SPEED 1200
  235. IF 3 JUMP TSSPEED-3
  236. MESSAGE
  237.  
  238.                                    1200 baud
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246. .
  247. JUMP TSCONFIRM
  248. LABEL TSSPEED-3
  249. SPEED 300
  250. MESSAGE
  251.  
  252.                                     300 baud
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260. .
  261. LABEL TSCONFIRM
  262. ASK Please confirm that the above choices are correct (Y,N):
  263. IF -YN JUMP TSCONFIRM
  264. IF N RWIND
  265. LO SOURCE
  266. ABORT
  267. LABEL DO-4
  268. CLEAR
  269. MESSAGE
  270.                       ***********************************
  271.                       *                                 *
  272.                       *    C R O S S T A L K - X V I    *
  273.                       *                                 *
  274.                       ***********************************
  275.  
  276.  
  277.  
  278.                           Information Service Chosen:
  279.  
  280.  
  281.                          Bank of America - Home Banking
  282. .
  283. LABEL BA1
  284. MESSAGE
  285.  
  286.                                  Standard Log-On
  287. .
  288. LABEL BASPEED
  289. ASK Please choose the transmission speed - 300 or 1200 baud (3=300,1=1200):
  290. IF -13 JUMP BASPEED
  291. IF 1 SPEED 1200
  292. IF 3 JUMP BASPEED-3
  293. MESSAGE
  294.  
  295.                                    1200 baud
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303. .
  304. JUMP BACONFIRM
  305. LABEL BASPEED-3
  306. SPEED 300
  307. MESSAGE
  308.  
  309.                                     300 baud
  310.  
  311.  
  312.  
  313.  
  314.  
  315.  
  316.  
  317. .
  318. LABEL BACONFIRM
  319. ASK Please confirm that the above choices are correct (Y,N):
  320. IF -YN JUMP BACONFIRM
  321. IF N RWIND
  322. LO HOMEBANK
  323. ABORT
  324. LABEL DO-5
  325. CLEAR
  326. MESSAGE
  327.                       ***********************************
  328.                       *                                 *
  329.                       *    C R O S S T A L K - X V I    *
  330.                       *                                 *
  331.                       ***********************************
  332.  
  333.  
  334.  
  335.                          < < <   W A R N I N G   > > >
  336.  
  337.  
  338.                                   Exit to DOS
  339.  
  340.  
  341.  
  342.  
  343.  
  344.  
  345.  
  346.  
  347.  
  348.  
  349.  
  350. .
  351. ALERT
  352. LABEL XDCONFIRM
  353. ASK Please confirm that the above choice is correct (Y,N):
  354. IF -YN JUMP XDCONFIRM
  355. IF N RWIND
  356. XD
  357. LABEL DO-0
  358. CLEAR
  359. MESSAGE
  360.                       ***********************************
  361.                       *                                 *
  362.                       *    C R O S S T A L K - X V I    *
  363.                       *                                 *
  364.                       ***********************************
  365.  
  366.  
  367.  
  368.                          < < <   W A R N I N G   > > >
  369.  
  370.  
  371.                              Exit to CROSSTALK XVI
  372.  
  373.  
  374.  
  375.  
  376.  
  377.  
  378.  
  379.  
  380.  
  381.  
  382.  
  383. .
  384. ALERT
  385. LABEL XCCONFIRM
  386. ASK Please confirm that the above choice is correct (Y,N):
  387. IF -YN JUMP XCCONFIRM
  388. IF N RWIND
  389. SCREEN STATUS
  390. CLEAR
  391. ABORT
  392.  
  393. MENU script ends with ABORT
  394.  
  395. As you will note there are many options available with the menu, however all
  396. the script files will not be included here as they may not be of interest to
  397. all members. The CIS and CIS/IBMSIG logon scripts will be included and
  398. will hopefully serve as models for script files that serve your needs.
  399. The CIS logon script is composed of two files:
  400.                         CSERVE.XTK - The standard Xtalk .XTK file with slight
  401.                                      modifications. You can, of course, alter
  402.                                      the function keys to suit your needs.
  403.                         CSERVE.XTS - The logon script file
  404. CSERVE.XTK follows:
  405. NAme     CompuServe Information Service
  406. NUmber   nnn-nnnn
  407. ACcept   Everything
  408. ANswback On
  409. ATten    Esc
  410. BReak    End
  411. SWitch   Home
  412. CWait    None
  413. LWait    None
  414. DEbug    Off
  415. DPrefix  ATDT
  416. DSuffix  |
  417. EMulate  None
  418. INfilter On
  419. LFauto   Off
  420. MOde     Call
  421. POrt     1
  422. PWord
  423. TImer    On
  424. TUrnarnd Enter
  425. BKsize   1
  426. CApture  Off
  427. COmmand  ETX (^C)
  428. DAta     8
  429. DUplex   Full
  430. OUtfiltr On
  431. PArity   None
  432. PRinter  Off
  433. STop     1
  434. TAbex    Off
  435. BLankex  Off
  436. UConly   Off
  437. FK 1 ""
  438. FK 2 ""
  439. FK 3 ""
  440. FK 4 "CROSSTALK - XVI "
  441. FK 5 "@CApture /|"
  442. FK 6 "@PRinter /|"
  443. FK 7 "@TYpe|"
  444. FK 8 "@CApture <24|"
  445. FK 9 "@SNap|"
  446. FK 10 "@SNap 24|"
  447. FK S1 ""
  448. FK S2 ""
  449. FK S3 ""
  450. FK S4 ""
  451. FK S5 ""
  452. FK S6 ""
  453. FK S7 ""
  454. FK S8 ""
  455. FK S9 ""
  456. FK S10 ""
  457. FK C1 ""
  458. FK C2 ""
  459. FK C3 ""
  460. FK C4 ""
  461. FK C5 ""
  462. FK C6 ""
  463. FK C7 ""
  464. FK C8 ""
  465. FK C9 ""
  466. FK C10 ""
  467. FK A1 ""
  468. FK A2 ""
  469. FK A3 ""
  470. FK A4 ""
  471. FK A5 ""
  472. FK A6 ""
  473. FK A7 ""
  474. FK A8 ""
  475. FK A9 ""
  476. FK A10 ""
  477. GO q30/30
  478.  
  479. CSERVE.XTK ends with GO q30/30
  480. CSERVE.XTS follows:
  481.  
  482. MESSAGE
  483. Logging onto CompuServe . . . please wait a moment . . .
  484. .
  485. ; Log onto CompuServe, give ID and Password.
  486. WAIT QUIET 20
  487. REPLY ^C
  488. WAIT STRING "ID:"
  489. REPLY 12345,678|
  490. WAIT STRING "Password:"
  491. REPLY MYWORD!|
  492.  
  493. CSERVE.XTS ends with REPLY MYWORD!|
  494. In order to make CSERVE.??? function you will have to add you local CIS node
  495. number as well as your ppn (user id) and password (sorry, no free lunch). This
  496. script also assumes that you are calling in through a direct CIS node and
  497. bypassing Telenet and Tymnet.
  498.  
  499. To execute the logon and capture all messages to disk you will need two files:
  500.                         CSIBMSIG.XTK - Standard Xtalk .XTK file with slight
  501.                                        modification. Same as CSERVE.XTK so
  502.                                        just COPY as CSIBMSIG.XTK.
  503.                         CSIBMSIG.XTS - Script file for CIS login, transfer to
  504.                                        IBMSIG and retrevial of all messages.
  505.  
  506. CSIGMSIG.XTS follows:
  507. MESSAGE
  508. Logging onto CompuServe . . . please wait a moment . . .
  509. .
  510. ; Log onto CompuServe, give ID and Password.
  511. WAIT QUIET 20
  512. REPLY ^C
  513. WAIT STRING "ID:"
  514. REPLY 12345,678|
  515. WAIT STRING "Password:"
  516. REPLY MYWORD!|
  517. WAIT QUIET 15
  518. REPLY |
  519. ; Wait for system prompt and then goto IBM PC SIG.
  520. WAIT CHAR "!"
  521. REPLY GO PCS-131|
  522. ; Start capture, wait for prompt, start info dump.
  523. CAPTURE B:CSTEMP.TXT
  524. WAIT STRING "FUNCTION:"
  525. REPLY RTN|
  526. ; Watch for first FUNCTION: prompt.
  527. WHEN "FUNCTION:" REPLY | : DO
  528. WAIT MANUAL
  529. ; Watch for second FUNCTION: prompt.
  530. WAIT MANUAL
  531. ; Watch for prompt and then log-off.
  532. WHEN -
  533. WAIT STRING "FUNCTION:"
  534. REPLY BY|
  535. WAIT STRING "time"
  536. WAIT DELAY 35
  537. BY
  538. ; Save file and exit program.
  539. DO MENU
  540.  
  541. CSIBMSIG.XTS ends with DO MENU
  542.                               WARNING!!
  543. This script assumes you have no messages waiting, if so it would hand on the
  544. pending message, and if left unattended would leaving you hanging at the
  545. "reply, delete, continue" prompt forever (or something close to it).
  546.  
  547. To use the script files contained in this documentent just extract out each
  548. file with a good text editor or word processor. Each module should run as a
  549. standalone script with using the MENU if you're so inclined.
  550.  
  551. These files were provided to be helpful hints on Xtalk script writing as well
  552. be actual working script files.  If they cause your machine to blow up or
  553. result in you incurring 182 hours of CIS connect time, the author assumes no
  554. libaility. Altho these scripts are used on a daily basis you should, as with
  555. any new program or procedure, use them with a cautious eye for the first
  556. several times of use.
  557.  
  558. Having said that.....ENJOY!!
  559.  
  560. Thanks and a tip of the hat to Steve Greenberg for the use and distribution of
  561. his files.
  562.                         Don Watkins 76003,252
  563.                         2/14/84
  564.